From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 17 Jun 2019 13:46:09 +0000 (+0200)
Subject: New function eieio-declare-slots
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~2829
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1250a24f8ec2338d742d89bcaf83601496cee72a;p=emacs.git

New function eieio-declare-slots

* lisp/emacs-lisp/eieio-core.el (eieio-declare-slots): New
function to suppress compiler warnings about unknown slots.
---

diff --git a/lisp/emacs-lisp/eieio-core.el b/lisp/emacs-lisp/eieio-core.el
index 01a821ed2a1..b6acab2a25a 100644
--- a/lisp/emacs-lisp/eieio-core.el
+++ b/lisp/emacs-lisp/eieio-core.el
@@ -1085,6 +1085,10 @@ method invocation orders of the involved classes."
 These match if the argument is the name of a subclass of CLASS."
   (list eieio--generic-subclass-generalizer))
 
+(defun eieio-declare-slots (&rest slots)
+  "Declare that SLOTS are known eieio object slot names."
+  (setq eieio--known-slot-names (append slots eieio--known-slot-names)))
+
 (provide 'eieio-core)
 
 ;;; eieio-core.el ends here